home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / educational / intro_to_basic_part_2[commodore_1983].nbz / dungeon (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.0 KB  |  101 lines
  1. 1 REM
  2. 5 REM COPYRIGHT (C) ANDREW COLIN 1983
  3. 10 DATA"A[160]DRAGON.","[217]OU FIGHT AND "," KILL IT WITH YOUR SWORD!"
  4. 11 DATA"IT KILLS AND EATS YOU", "[217]OU BOTH RUN AWAY!"
  5. 20 DATA"A POISONOUS SPIDER.","[201]T ATTACKS YOU "," BUT YOU KILL IT WITH YOUR STAVE."
  6. 21 DATA"AND BITES YOU TO DEATH.","[217]OU RUN AWAY AND AREN'T BADLY BITTEN"
  7. 30 DATA"A SWARM OF WASPS.","[212]HEY ATTACK"," BUT YOU FINISH THEM OFF WITH THE FLY-SPRAY."
  8. 31 DATA" AND STING YOU TO DEATH","[217]OU RUN AWAY FAST!"
  9. 40 DATA"A SEDUCTIVE ENCHANTRESS.","[211]HE TRIES HER CHARMS ON YOU "
  10. 41 DATA"BUT YOUR MAGIC POTION SOON CURES HER OF THAT !","AND ENSLAVES YOU FOR EVER"
  11. 42 DATA"[217]OUR MIND IS ON THE PRINCESS AND YOU ESCAPE."
  12. 50 DATA"A SLIMY BELLY-FISH.","[201]T ATTACKS ! ","BUT YOUR FLAME-GUN SOON FINISHES IT OFF."
  13. 51 DATA"AND DIGESTS YOU SLOWLY AND VERY FINALLY."
  14. 52 DATA" [211]OMEHOW YOU ESCAPE ITS CLUTCHES AND GET AWAY."
  15. 140 DATA SHINING SWORD, STOUT STAVE, CAN OF FLYSPRAY,PHIAL OF  MAGIC POTION
  16. 145 DATA " LOADED FLAME-GUN"
  17. 150 DATA SMALL HALL,THRONE-ROOM,DUNGEON,QUEEN'S ROOM,BATHROOM,PANTRY,KITCHEN
  18. 160 DATA KING'S ROOM,GREAT HALL,LOO,LIBRARY,TOWER,PRINCESS'S ROOM
  19. 170 DATA7,2,-1,0,5,3,0,1,0,0,0,2,0,0,0,5,10,4,2,0
  20. 180 DATA0,0,0,7,0,6,1,0,0,9,0,0,12,10,0,8
  21. 190 DATA0,11,5,9,0,0,0,10,13,0,9,0,0,0,12,0
  22. 200 DATA"NORTH","EAST","SOUTH","WEST"
  23. 480 POKE 53280,7:POKE53281,1
  24. 490 PRINT:PRINT "[144][147]          [197]NTER THE CASTLE AND
  25. 491 [153]"          RESCUE THE (null)RINCESS!
  26. 495 FORJ=1TO3000:NEXTJ
  27. 500 N=13
  28. 510 DIMM$(5,5),W$(5),R$(N),C%(N,4),DI$(4),D%(5),L%(3),W%(5)
  29. 520 FORJ=1TO5:FORK=1TO5:READM$(J,K):NEXTK,J
  30. 530 FORJ=1TO5:READW$(J):NEXT
  31. 540 FORJ=1TON:READR$(J):NEXT
  32. 550 FORJ=1TON:FORK=1TO4:READC%(J,K):NEXTK,J
  33. 560 FORJ=1TO4:READDI$(J):NEXTJ
  34. 570 FORJ=1TO5:W%(J)=INT( 6*RND(0)+1):D%(J)=INT(RND(0)*6+6):NEXTJ
  35. 580 P=13:Q=0
  36. 590 J=INT(1+RND(5)):L%(3)=J:W%(J)=0
  37. 600 H=1
  38. 610 IFH<0THEN 800
  39. 620 PRINT"[147][217]OU ARRIVE IN THE ";R$(H)
  40. 630 IFH=PTHENPRINT"[217]OU'VE FOUND THE PRINCESS! [206]OW SHE COMES WITH YOU.":Q=1
  41. 640 GOSUB3000:IFX1=1THEN620
  42. 650 GOSUB3500
  43. 660 GOSUB2000
  44. 670 FORK=1TO10:J=1+INT(RND(0)*5):
  45. 680 IFD%(J)<>0THEND%(J)=INT(1+RND(0)*12)
  46. 690 NEXTK
  47. 700 GOTO610
  48. 800 IF Q=1THENPRINT"[217]OU'RE OUT WITH THE [208]RINCESS. [215]ELL DONE!":END
  49. 810 PRINT"[217]OU'VE COME OUT WITHOUT THE [208]RINCESS.  [212]RY AGAIN"
  50. 820 FORJ=1TO3000:NEXT J
  51. 825 RESTORE:CLR
  52. 830 GOTO 500
  53. 2000 REM (null)HERE NEXT ?"
  54. 2010 [153]:[153]"(null)OU CAN GO":KK$[178]"   "
  55. 2020 [129]JJ[178]1[164]4
  56. 2030 [139]C%(H,JJ)[179][177]0[167][153]KK$;DI$(JJ):KK$[178]"OR "
  57. 2040 [130]JJ
  58. 2050 [133]"(null)HICH WAY";X$
  59. 2060 Y$[178][200](X$,1)
  60. 2070 [129]JJ[178]1[164]4
  61. 2080 [139]Y$[178][200](DI$(JJ),1)[175]C%(H,JJ)[179][177]0[167]H[178]C%(H,JJ):[142]
  62. 2090 [130]JJ
  63. 2100 [153]"(null)RY AGAIN":[137]2000
  64. 3000 [143] BATTLE
  65. 3010 [129]JJ[178]1[164]5
  66. 3020 [139]D%(JJ)[178]H[167]3050
  67. 3030 [130]JJ
  68. 3040 X1[178]0:[142]
  69. 3050 [153]:[153]"(null)OU MEET ";M$(JJ,1);:[141]5000
  70. 3060 [139][187](0)[177]0.5[167]3110
  71. 3070 [153]M$(JJ,5)
  72. 3080 [139]Q[178]1[167][153]:[153]"(null)OU LEAVE THE PRINCESS BEHIND!":Q[178]0:P[178]H
  73. 3090 H1[178]1[170][181](11[172][187](0)):[139]H1[178]H[167]3090
  74. 3100 [129]JJ[178]1[164]2500:[130]JJ:H[178]H1:X1[178]1:[142]
  75. 3110 [153]M$(JJ,2);
  76. 3120 [139]L%(1)[178]JJ[176]L%(2)[178]JJ[176]L%(3)[178]JJ[167][153]M$(JJ,3):D%(JJ)[178]0:X1[178]1:[141]5500:[142]
  77. 3130 [153]M$(JJ,4):[153]:[153]:[153]"  VALND OF THE GAME !":[128]
  78. 3500 [143] OBJECTS
  79. 3510 [153]"(null)OU HAVE WITH YOU"
  80. 3520 [129]JJ[178]1[164]3:[139]L%(JJ)[177]0[167][153]" A ";W$(L%(JJ))
  81. 3525 [130]JJ
  82. 3530 [129]JJ[178]1[164]5
  83. 3540 [139]W%(JJ)[178]H[167]3570
  84. 3550 [130]JJ
  85. 3560 [142]
  86. 3570 [153]"(null)OU FIND A ";W$(JJ):
  87. 3580 [133]"STR$O YOU WANT IT";X$
  88. 3590 [139][200](X$,1)[178]"N"[167] [142]
  89. 3600 [139]L%(1)[179][177]0[167][153]"(null)OU DROP THE ";W$(L%(1)):W%(L%(1))[178]H
  90. 3610 L%(1)[178]L%(2):L%(2)[178]L%(3):L%(3)[178]JJ:W%(JJ)[178]0:[142]
  91. 5000 [143] FLASH FRAME
  92. 5010 [129]QQ[178]0 [164] 7:[151]53280,QQ
  93. 5020 [129]TT[178]1[164]100:[130]TT
  94. 5030 [130]QQ
  95. 5040 [153]:[153]"LEFT$IT ANY KEY TO SEE WHAT HAPPENS"
  96. 5050 [161]A$:[139]A$[178]""[167] 5050
  97. 5060 [142]
  98. 5500 [143] WAIT A BIT
  99. 5510 [129] JJ[178]1[164]2000:[130]JJ
  100. 5520 [142]
  101.